# declare a hash of array to prepare storage of all 
# variables to be encoded together
  my $HoA{$sitename} = ["$loginid", "$password", "$url"];
  open(FILEHANDLE, ">>passmgr.dat") 
    or die("The file cannot be opened!");
  my $encode = ST2614::encode($HoA, $ARGV[1]);
  print FILEHANDLE "$encode";
  close FILEHANDLE;