#!/usr/bin/perl -w
    use Tie::File;
    use strict;
    use warnings;
    
    tie my @in_lines, 'Tie::File', "infile";
    tie my @out_lines,'Tie::File', "outfile";
    
    my  $lines_to_transfer = 3;
    push @out_lines, splice @in_lines, 0,$lines_to_transfer;