#!/usr/bin/perl

use warnings;
use strict;

my $file1;
my $file2;
my $in1;
my $in2;
my $datei1;
my $datei2;
my @out1;
my @out2;
my $i;

print 'Enter ID Sample 1: ';
$file1 = <STDIN>;       
chomp($file1);

open ($in1, "<", $file1) or die "Datei $file1 konnte konnte nicht gefunden werden!";
while (<$in1>) {
    chomp($_);   
    my @a  = split(/\t/, $_);
    push (@out1, "$a[1]\t$a[12]\n");
}       
close($in1);

open($datei1, ">", "out1.txt");
foreach $i (@out1) {
    print $datei1 $i;
}
close($datei1); 

print 'Enter ID Sample 2: ';
$file2 = <STDIN>;
chomp($file2);
 
open ($in2, "<", $file2) or die "Datei $file2 konnte konnte nicht gefunden werden!";
while (<$in2>) {
    chomp($_);   
    my @b  = split(/\t/, $_);
    push (@out2, "$b[1]\t$b[12]\n");
}       
close($in2);

open ($datei2, ">", "out2.txt");
foreach $i (@out2) {
    print $datei2 $i;
}
close($datei1);