Select Code to Download

# Takes input in the form 'a,b|c'  
# How to run :  perl code.pl 'a,b|c' 'c,d|e' 'a,d|e'  
# Outputs a NX3 for the above input data.  
...
foreach (keys %HoA) { 
print "$_ => $HoA{$_}\n"; 
}