$file=pop @ARGV;
chomp $file;
open (MESG, "+<" ,"$file")|| die "Phile unavailable:$!\n";
while(){
  $character=$_;
  @letters=split(/\n/ ,$character);
  foreach $letter(@letters){
    $ascii=unpack ("C*" ,$letter);
    $bin=unpack ("b*",$letter);
    $ordinal=ord $letter;
    print "\n1)$letter\n";
    print "2)$ordinal\n";
    print "3)$ascii\n";
    print "4)$bin\n";
    push @bin ,$bin;
  }
}
my %letnet;
foreach $letter(@letters){
  foreach $binary(@bin){
    $letnet->{$letter}=$binary;
  }
}
while (($key,$value)=each (%letnet)){
  print "$key-->$value\n";
}