study for values %seq;
foreach my $string (@string) { ...