Just in case you're still willing to give it a go, you don't need the match bit any more.
my $tab = $DB->table('MyLinks');
my @list = $tab->select( { UserID => $USER->{Username} } )->fetchall_list;
my $table = $DB->table('Links');
$table->select_options("ORDER BY $ord $way", "LIMIT $low,$mh");
my $sth = $table->select( { ID => \@list } );
while (my $rec = $sth->fetchrow_hashref) {
$tags->{saved_links} .= Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
}
The UK High Street
my $tab = $DB->table('MyLinks');
my @list = $tab->select( { UserID => $USER->{Username} } )->fetchall_list;
my $table = $DB->table('Links');
$table->select_options("ORDER BY $ord $way", "LIMIT $low,$mh");
my $sth = $table->select( { ID => \@list } );
while (my $rec = $sth->fetchrow_hashref) {
$tags->{saved_links} .= Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
}
The UK High Street