I don't understand the question. The way you use "implemented into" and "extrapolate " is confusing.

So back to Basic debugging checklist

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
my @foo = qw/ a b c /;
dd( \@foo );
my( $ba, $bar, $rar ) = qw/ q r s /;
dd( $ba, $bar, $rar );
__END__
["a", "b", "c"]
("q", "r", "s")
[download]

Does that help you ask clearer question? Does it answer any questions?