print "<pre>\n";
for my $i ( 0 .. $#foo ){
   print "$i)", unpack('H*', $foo[$i]),"\n";
}
print "</pre>\n";