Renvoyer résultat dans un fichier PERL

Bonjour,
j'ai un code perl qui lit 2 fichier un dictionnaire de la forme
1 voiture
2 maison
..

et un autre fichier séquence de la forme

1 2
2 2
..

mon code fait la correspondance des chiffres de fichier sequence avec les mots du fichier dictionnaire
donc j'ai comme resultat ca

voiture maison
maison maison
...
#!/usr/bin/env perl
use strict;
use warnings;
use autodie;

open (my $fh, "<", "dict_FR.txt" );
my %hash;
while (<$fh> ) {
if (/^\s*(\d+)\s+(.*\S)\s*$/) {
$hash{$1}=$2;
}
}
close $fh;



# maintenant %hash est un dictionnaire, de clés les codes numériques, et valeurs les mots associés.
open ($fh, "<", "seq_corpus.txt" );
while (<$fh> ) {
if (/^\s*((\d+)\s+)*\d+\s*$/ ) {

my @line = split(/\s+/, $_);

foreach (@line) {

print $hash{$_}, " ";




print "\n";
}
}
close $fh;



mon probleme que je veux stocker le resultat dans un nouveau fichier ..
qui peut m'aider ????