Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "this really does equal $_->{this}\n\n";
    }
}

my $test = sub {$_[0]->{this} eq 'that'};

...
        print "this really does equal $hash_ref->{this}\n\n";
    }
}