print "Please enter 4 numbers: \n";
my @numbers = <STDIN>;
chomp @numbers;
my @array = ();
	if ($numbers[0] > 50) {
		push (@array,$numbers[0]) }
	if ($numbers[1] > 50) {
		push (@array,$numbers[1]) }
	if ($numbers[2] > 50) {
		push (@array,$numbers[2]) }
	if ($numbers[3] > 50) {
		push (@array,$numbers[3]) }
my $final = join("-", @array);
print "$final\n";