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

my $in = 'z y x w v u t s r q p';
my @chars = split (/ /, $in);
print "@chars[0,1,7]\n";