elsif($choice eq 'get')
  {
    open(FH,"+>>database.txt")|| die 'Cannot open the file';
    print FH my @database;
    my $mykeys=(\@database);
    print STDOUT @{$mykeys},"\n";
  }