#!/usr/bin/perl -w 
 
use strict; 
 
open(FILE1, '<file1') || die $!; 
my @keys = <FILE1>; 
chomp(@keys); 
close(FILE1); 
open(FILE2, '<file2') || die $!; 
my @values = <FILE2>; 
chomp(@values); 
close(FILE2); 
 
my %h; 
 
@h{@keys} = @values; 
 
print qq($h{'apple'}\n);

open (my $FHH, '>parse211.txt') or die "Cannot open the file parse212.txt: $!";  
@key = <$FH>;  
chomp (@key); 
 
print "\@key values\n"; 
print "<$_>\n" for @key; 
 
  
my $arref = \@key;  
my $gb = Bio::DB::SwissProt->new;  
my $seqio = $gb -> get_Stream_by_id($arref);  
while (my $clone = $seqio->next_seq )  
{  
print $FHH $clone ->seq,"\n";  
}close $FHH;  
open (my $FHHH, 'parse211.txt') or die "Cannot open the file parse211.txt: $!";  
@value = <$FHHH>;  
chomp (@value);  
 
print "\@value values\n"; 
print "<$_>\n" for @value; 
 
@h{@key} = @value;  
print $h{'GFPL_ANEMA'};

open (my $FH, 'parse21.txt') or die "Cannot open the file parse21.txt: $!"; 
 
@key = <$FH>; 
close $FH; 
 
chomp (@key); 
my $arref = \@key; 
my %hash; 
 
my $gb = Bio::DB::SwissProt->new; 
my $seqio = $gb->get_Stream_by_id($arref); 
 
while (my $clone = $seqio->next_seq ) { 
 
    my $key = shift @key; 
     
    if( not $key ) { 
        warn "\$key is empty\n"; 
        next; 
    } 
     
    $hash{ $key } = $clone; 
 
} 
print $h{'GFPL_ANEMA'} ? $h{'GFPL_ANEMA'} : "\$h{'GFPL_ANEMA'} is undefined\n";

[root@localhost Documents]# perl bprev.pl 
$VAR1 = { 
          'A8CLP7_9CNID' => 'MSVIKTDMKIRL------PSKAK', 
' => 'MALSN-------------KFIGDDMKM', 
' => 'MALSKQ--------------SLPSDMKE', 
' => 'MSVIKSVMK------------IKLRMDGIVNK' 
        };

push my @arr,  keys %hash;  
#print Dumper (\%hash) 
print Dumper (\@arr);

[root@localhost Documents]# perl bprev.pl 
$VAR1 = [ 
          'A8CLP7_9CNID', 
',        'GFPL_ANEMA 
',        'A8CLP2_MONEF 
'         'A7UAL1_9CNID 
        ];

push my @arr,  values %hash;  
#print Dumper (\%hash) 
print Dumper (\@arr);

$VAR1 = [ 
          'MSVIKTDMKIRLQ----SKAK', 
          'MALSNKFIGDDMKM--------PF', 
          'MALSKQSLPSD----CFTE', 
          'MSVIKSVMKIK--------------PIKAK' 
        ];

print "\@value values\n";  
print "<$_>\n" for @value;

$h{ $key } = $clone ->seq();