Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
push @data, $response unless grep { $_ eq $response } @data;

print "$_\n" for @data;