#!/usr/bin/perl

use v5.12;
use warnings;

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

processFile($_) for qw/1 2/;