$data　に任意のデータがあるとして。
my $arry = 'DamnASS';
$arry =~ m/^$data/i;