Simple n00b problem passing string to sub

[pcaisse]

Could someone please tell me why this stupid script doesn't print the string being passed to the sub?:

#!/usr/bin/perl -w
 
use strict;  
 
print "Work, damnit!\n";
 
my $val = "print me";
 
print "Here's the string I'm passing: " . &eat_one($val) . "\n";
 
sub eat_one {
 
    print $_;
 
}

This is the output I get when I run the script:

peter@peter-wilde4:~/Translation_Project/perl$ ./index3.pl
Work, damnit!
Use of uninitialized value in print at ./index3.pl line 13.
Here's the string I'm passing: 1

Notice I get an error saying the value is uninitialized and "1" is printed. I'm sure this has a simple answer. Thanks.

[KevinADC]

You passed it to the sub but did not import it inside the sub:

sub eat_one {
    my $var = shift; # <-- here we get the passed in argument into a scalar from the system array @_
    print $var;
 
}

[pcaisse]

Thanks a lot, I appreciate the quick answer.