#!/usr/bin/perl

use strict;

my_sub( handle => 'Test', 'thing' => 'something');

sub my_sub {
    my %args = @_; 
    my ($handle, $thing) =  @args{'handle','thing'};

    print "HANDLE: $handle\nTHING: $thing\n";
}