do_work ($cmd, $foo);

sub do_work {
   my ($command, $foo) = @_;
   # do stuff
}