# try one of these:

my ($string) = @_;
my $string = shift;
my $string = $_[0];