#!/usr/bin/perl

@p = ("hugo", "paco", "luis");
print $p[1], "\n";  # imprime "paco"