my @key;
for(my $i=0;$i<5;$i++)
{
    $output_file=$key[$i].$output_file;
    open($key[$i],'>:utf8',"$output_file");
    my $f= $key[$i];
    print $f $start."\n";
    ...