#!/usr/bin/perl
use strict; use warnings;
my @dbf=qw( rates );

foreach my $dbf (@dbf){
   use $dbf;
}