Select Code to Download

 print "$user is in the hash. \n";
        @user_array = split(/ /, $p2i{$user});

        foreach (@user_array) {
        print "$_\n";
        }

#!/usr/bin/perl

use strict;
...
        }

exit;