use strict;
use warnings;

   open( ABB, '<', 'jabb.txt' ) or die "Couldn't open ABB.\n$!";
   open( IN, '<', 'input.txt' ) or die "Couldn't open infile.\n$!";
   open( OUT, '>', 'output.out' ) or die "Couldn't open outfile.\n$!";
   
   my @myin = <IN>;

   while(<ABB>){
      if(/(.*?)\t(.*?)\n/){
      my $abb=$1;
      my $full=$2;
      print "@myin\n";
      @myin = s/$full/$abb/g;
      }
  }
  print OUT "@myin\n";