#!/usr/bin/perl

use strict;
use warnings;

sub foo
{
    my %params = @_;
    print "$_: $params{$_}\n", for keys %params;
}

my $word = shift @ARGV || "world";

foo ( hello => $word );