#!/usr/local/bin/perl

@students = ( "John", "James", "Mary", "Joe", "Shawn", "Pat" );
$student = @students;

print "$student\n";

$student = @students[4];
print "$student\n";