#!/usr/bin/perl
use strict;
use warnings;

# 875438

START: print "\nEnter your choice: ";
my $choice = <>;
chomp ($choice);

if ( $choice != 1 && $choice != 2 ) {
	print "INVALID CHOICE\n";
	goto START;
} else {
	print "\$choice: $choice \n";
}