sub createTable { my $value = shift; print $value; } # or sub createTable { print $_[0]; # subscript means array }