#!/usr/bin/perl

print "Melyik számot szeretnéd újradobni? (1, 2, 3, 4, 5): ";
my $valasz = <STDIN>;
chomp($valasz);

if ($valasz eq "1") {
	print "Első szám újradobás jön...\n";
} elsif($valasz eq "2") {
	print "Második szám újradobás jön...\n";
} elsif($valasz eq "3") {
	print "Harmadik szám újradobás jön...\n";
} elsif($valasz eq "4") {
	print "Negyedik szám újradobás jön...\n";
} elsif($valasz eq "5") {
	print "Ötödik szám újradobás jön...\n";
}else {
	print "Nem dobunk.\n";
}