#!/usr/bin/perl

sub foo
{
    while (@_) { $_ = shift; $params->{$_} = shift; }
    print "$_: $params->{$_}\n", for keys %$params;
}

$_ = shift @ARGV || "world";

foo ( hello => $_ );