Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    my $procedure=findproc($sample);
    return assigncode($site,$specimen,$procedure);
}

sub findproc {
    my $possible_key = shift;    # get the argument passed to this sub
    if (defined $procedure{$possible_key}) {
        print $procedure{$possible_key}, "\n";    
    }
}