my $table = { foo => { bar => [qw(one two three four five)] } };
print join(" - ", @{$table->{foo}->{bar}}[2..4]);

__output__

three - four - five