$Envs = Gtk2::Ex::Simple::List->new_from_treeview ( $abaNewWindow->get_widget('Envs'), 'Environments' => 'text'); $EnvsToRun = Gtk2::Ex::Simple::List->new_from_treeview ( $abaNewWindow->get_widget('EnvsToRun'), 'Environments' => 'text', 'Duration' => 'double', 'Config' => 'int'); open(ENVIRONMENTS, "environments.txt"); while(){ my $line = $_; chomp($line); push @{$Envs->{data}}, $line; } close(ENVIRONMENTS); $environment = shift @{$Envs->{data}}; print $environment; push @{$EnvsToRun->{data}}, [$environment, $duration, $config];