#!/usr/bin/perl
use strict;

my @array = (qr/^foo /, qr/bar$/);
print "@array\n";

my %hash = map {$_, 1} @array;
foreach (keys %hash) {
    print "$_\n";
}