#!/usr/bin/perl

my $file="file.txt";
open (FH, "< $file") or die "$!";
while (<FH>) {
        push (@lines, $_);
             }
        close FH or die "$!";
print "@lines[0]\t@lines[1]\n\n";