package ABC;

sub readdatafile
{
   my ( $filename) = @_;

   # get the data into array as required

   return ABC::Data->new(\@data);

}

package ABC::Data;

sub new
{
   my ( $class, $ref) = @_;
   return bless $ref, $class;
}