#! /usr/bin/perl -w

@array = ( 1, 2, 3, 4, 5, 6, 7, 8 );
@subarray = @array[ 3, 4, 5 ];
print "@array\n@subarray\n";

print join '-', @subarray;