[Camron Rust]

#! /usr/bin/perl

%Weight = (

    Maximum => 200,

    Minimum => 120

);

$WeightFile = "Howbig.lst";

%AllPeople = &GetData($WeightFile);

foreach $Name (keys %AllPeople) {

    print "Your $Name is so fat..." if ($AllPeople{$Name}{Weight} > $Weight{Maximum};

    print "Your $Name is so skinny..." if ($AllPeople{$Name}{Weight} > $Weight{Minimum};

}