@a = ( 'I', 'am' );
%h = ( 'perl' => 'hacker' );
$x = 'just';

my_sub( @a, $x, 'another', %h );

# OUTPUT:
# param 0 = I
# param 1 = am
# param 2 = just
# param 3 = another
# param 4 = perl
# param 5 = hacker