use strict;
use warnings;
my @search_data = qw( cups cups-libs ); 
my @rpm_data = qw( cups-1.5.2-9.fc16.x86_64 cups-libs-1.5.2-9.fc16.x86
+_64 );
foreach my $patch_prog ( @search_data )
{
         my @vers = grep ( /^\Q${patch_prog}\E-\d.*/, @rpm_data );
              print "@vers\n";
}