You need to give $prot as argument to the hydropathicity() function as follows,

my $gravy = Bio::Tools::SeqStats->hydropathicity($prot);