#!/usr/bin/perl

use warnings;
use strict;

sub processFile {
    my $nr = shift;
    my @a;
    my @out;
    my $i;
    print "\nEnter ID Sample $nr: ";
    my $filename = <STDIN>;       
    chomp($filename);
    open (my $in, "<", $filename) or die "Datei $filename konnte konnte nicht gefunden werden!";
    while (<$in>) {
        chomp($_);   
        @a  = split(/\t/, $_);
        push(@out, "$a[1]\t$a[12]\n");
    }       
    close($in);
    open(my $datei, ">", "out$nr.txt");
    foreach $i (@out) {
        print $datei $i;
    }
    close($datei);
}

processFile("1");
processFile("2");