#!/usr/bin/perl
use strict;
use warnings;

sub foobar() {
    my ( $foo, $bar ) = @_;

    print "foo: $foo\nbar: $bar\n";
}

foobar( 1, 2 );