my (@stuff) = qw [ one two three four five ];

    print join (',', $stuff[-2], $stuff[2]);