my @seq = ( 1 .. 5 );
my $seq = \@seq;   # $seq is now a reference/pointer to @seq
my @query = @$seq; # @query is now a copy