#!/usr/local/bin/perl

use CGI;

my $q = new CGI;
my $search_word = $q->param('search_word');
my @parameters = qw(hello1 hello2 hello345 gube);
@values = grep /^$search_word\d+/, @parameters;
print "@values";