#!perl
use strict;
use warnings;

open FH, '<', 'filename.txt' or die $!;
open FHWRITE, '>>','results.txt' or die $!;
my $count;
while (my $line = <FH>){
  print $line;
  my ($i,$repeat,$seq) = split /\s+/, $line;
  print FHWRITE "$i-$_ $seq\n" for (1..$repeat);
  $count += $repeat;
}
print "\n$count records written to results.txt\n";
[download]