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

my $numbers = "2 1 3 4 5";
my @numbers = split(' ', $numbers);
print "numbers are: @numbers\n";

my $input;
print "Enter numbers 1-5, q to quit:\n";
while ($input =<STDIN>, $input !~/q/i)
{
    chomp $input;  #needed to get rid of line ending
    
    print "the $input th num: $numbers[$input-1]\n";
}

print "program completed\n";

__END__
numbers are: 2 1 3 4 5
Enter numbers 1-5, q to quit:
3
the 3 th num: 3
5
the 5 th num: 5
q
program completed