for my $i ( 0 .. $#sample ) {
    print "[$i] '$sample[$i]'\n";
}