#!/usr/bin/perl -w
use strict;
use warnings;
my $alt = 1;
my $neu = 2;
printf ('%s_%s',$neu,$alt);